9000 :print ;list 
9010 for Z=1 to 26
9020 TV = Z + 64
9030 print #1,"=",%(20076+(Zmul 2))
9040 next Z
9050 for Y = 0 to N
9060 print #1,"@(",Y,")=",@(Y)
9070 next Y
9080 print "run 
